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; % 
; : Version: *v04-000' 
4 
5 define type check_options 
§ keyword all 
keyword none 
3 keyword bounds, negatable 
keyword overflow, negatable 
19 keyword underflow, negatable 
12 define type debug_options 
ig keyword me 
14 keyword none 
15 keyword symbols, negatable 
18 keyword traceback, negatable 
18 define type show options 
19 keyword alT 
keyword none 
1 keyword ere rocessor, negatable 
¢ keyword include, negatable 
keyword MAP, negatable 
5 define type standard_options 
$ keyword all 
keyword none 
28 keyword syntax, negatable 
9 keyword source_form, negatable 
i define syntax fortran_using_f77 
¢ image backtrans 
define syntax dml 
5 image fordml 
? define verb fortran 
image fortran 
9 prefix cli$k_fort_ ; 
40 parameter pl,prompt="File’’,value(required, list, type=$infile), label=infile 
41 qualifier check, value(list type=check options 
4 qualifier continuations ,nonnegatable,default,va ue(default=19) 
4 qualifier cross_reference ; 
44 qualifier debug, value(List,type=debug_options) 
45 qualifier d_Lines 
46 qualifier default 
47 qualifier q floating 
48 qualifier 1%, default 
49 qualifier Listing, value(type=Sout file) batch, Label=output2 
0 qualifier machine_code 
1 qualifier object. value(type=Sout file) ,default,label=output! 
5 qualifier optimize, default 
qualifier variant, value(list) 
4 qualifier warnings. DEFAULT 
5 qualifier work files, value * 
6 qualifier rsx1T, syntax=fortran_using_f77 
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qualifier Library, placement=Local 

qualifier show, value(List,type=show_options) 
qualifier standard, value(List,type=standard_options) 
qualifier dml, syntax=dml 

outputs (output! ,output2) 


$ SET COMMAND SRC$:FORTRAN.CLD,PASCAL.CLD/TABLES=EXE$:DCLTABLES/OUTPUT=EXE$:DCLTABLES/LISTING=LIS$:DCLTABLE2 
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1 DEFINE VERB pascal 
¢ IMAGE pascal 
ARAMETER pl, 
4 ALIFIER chec k, 
5 UALIFIER cross “reference, 
S QUALIFIER debug, 
QUALIFIER error_Limit, 
8 QUALIFIER List 
7 QUALIFIER chine code, 
10 QUALIFIER o 
11 QUALIFIER pi ne 
\¢ QUALIFIER warnings, 
1 QUALIFIER environment, 
14 QUALIFIER g_floating, 
15 QUALIFIER old vers ten, 
16 QUALIFIER optimize 
17 OUTPUTS iouteut!: output2) 
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LABEL in ut! VALUE (REQUIRED, LIST IMPCAT, TYPE=SINFILE), PROMPT="File’ 
DEFAULT, LUE (LIST) » PLACEMENT=POSI TIO 
PLACEN EN iter SITIONAL 
DEFAULT, VALUE (LISTS, 1 :PRASEMENT =POS LT ONAL 
DEFAULT. VALUE (DEF AU PLACEMENT=POSI TIONAL 
LABEL=output VALUE CTYPE=SOUTFILED, BATCH, PLACEMENT=POSITIONAL 
PLACEMENT=PO$ siti 
ABEL=output1 WALUE CTYPE=SOUTFILE), DEFAULT, PLACEMENT=POSI TIONAL 
STACEMENTSPOS I TIONAL 
AULT, PLA ERENT SPOSITIONA 
ee tence PLACEMENT=POS1 TIONAL 


PLACEMENT=POSITIONA 
DEFAULT, PLACEMENT= POSITIONAL 


$ SET COMMAND SRC$:FORTRAN.CLD,PASCAL.CLD/TABLES=EXES:DCLTABLES/OUTPUT=EXES:DCLTABLES/LISTING=LIS$:DCLTABLE2 
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